home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / mapl0301.zip / MCFG0301.MRG < prev    next >
Text File  |  1993-03-01  |  21KB  |  493 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against E:\RBBS\STOCK\CONFIG.BAS to produce E:\RBBS\CHAT\CONFIG.BAS
  3. * E:\RBBS\STOCK\CONFIG.BAS:  Date 6-20-1992  Size 157813 bytes
  4. * ------------[ Created 03-01-1993 19:16:15 ]------------
  5. * REPLACING old line(s) by new
  6. 10000 ' CONFIG.BAS (RBBS-PC VERSION 17.4)
  7.       'by D. Thomas Mack, 39 Cranbury Drive, Trumbull, CT 06611 (up to 16)
  8.       '  Jon Martin, 4396 N Prairie Willow Ct, Concord, CA 94521 (up to 17.2B)
  9.       '  Ken Goosens, 5020 Portsmouth Road, Fairfax, VA 22032
  10.       '  Doug Azzarito, 5480 Eagle Lake Drive, Palm Beach Gardens, FL 33418
  11.       '
  12.       ' *******************************NOTICE**********************************
  13.       ' *  A limited license is granted to all users of this program and it's *
  14.       ' *  companion program, RBBS-PC (ver. 17.4), to make copies of this     *
  15.       ' *  program and distribute the copies to other users, on the following *
  16.       ' *  conditions                                                         *
  17.       ' *   1.   The copyright notices contained within this program are not  *
  18.       ' *        altered, bypassed, or removed.                               *
  19.       ' *   2.   The program is not to be disrtibuted to others in modified   *
  20.       ' *        form (i.e. the line numbers must remain the same).           *
  21.       ' *   3.   No fee is charged (or any other consideration received)      *
  22.       ' *        for coping or distributing these programs without an express *
  23.       ' *        written agreement with the authors.                          *
  24.       ' *                                                                     *
  25.       ' *      Copyright (c) 1983-1992 D. Thomas Mack, The Second Ring        *
  26.       ' ***********************************************************************
  27. '     $INCLUDE: 'CNFG-VAR.BAS'
  28.       CLEAR
  29. '
  30. ' ****************************************************************************
  31. ' *  DISPLAY THE CONFIG TITLE PAGE
  32. ' ****************************************************************************
  33. '
  34.       WIDTH 80
  35.       CLS
  36.       NOT.YET.IN$ = "[Not Implemented]"  ' Msg used in config for parm not yet implemented
  37.       NONE.PICKED$ = "<none>"    ' Standardized message
  38.       NUM.FILES = 8
  39.       NUM.GLOBAL = 4
  40.       NUM.MAIN = 18
  41.       NUM.SYSOP = 7
  42.       NUM.UTILITY = 12
  43.       NUM.LIBRARY = 7
  44.       VERSION.NUMBER$ = "17.4"
  45.       I! = FRE(C$)
  46.       KEY OFF
  47.       CALL CNFGINIT
  48.       PRINT TAB(60)"tm"
  49.       PRINT TAB(16) STRING$(15,205)" U S E R W A R E "STRING$(15,205)
  50.       PRINT
  51.       PRINT TAB(17)"Capital PC User Group User-Supported Software"
  52.       PRINT
  53.       X$ = "    "
  54. * ------[ first line different ]------
  55.       PRINT "Copyright (c) 1983-1991 D. Thomas Mack, 39 Cranbury Dr., Trumbull, CT. 06611"
  56.       PRINT
  57.       PRINT X$;"    If you use Maple RBBS-PC " + CONFIG.VERSION$ + " and find"
  58.       PRINT X$;"    it valuable, consider contributing to"
  59.       PRINT ""
  60.       PRINT X$;"                 Capital PC Software Exchange"
  61.       PRINT X$;"                     Post Office Box 1785"
  62.       PRINT X$;"                West Bethesda, Maryland  20827"
  63.       PRINT
  64.       PRINT X$;"    You are free to copy and share RBBS-PC provided"
  65.       PRINT X$;"      1.  This program is not distributed in modified form."
  66.       PRINT X$;"      2.  No fee or consideration is charged for RBBS-PC itself."
  67. * REPLACING old line(s) by new
  68. 10230 PRINT X$;"      3.  This notice is not bypassed or removed."
  69.       PRINT
  70. '
  71. ' *  DEFINE THE FUNCTIONS USED BY CONFIG
  72. '
  73.       DEF FNTI! = CSNG(FIX((VAL(MID$(TIME$,1,2)) * 60 * 60) _
  74.                          + (VAL(MID$(TIME$,4,2)) * 60) _
  75.                          + (VAL(MID$(TIME$,7,2)) * 1)))
  76.       DEF FNHSH(X$) = ((ASC(X$) * 100  _
  77.                          + ASC(MID$(X$,(LEN(X$)/2) + .1,1)) * 10  _
  78.                          + ASC(RIGHT$(X$,1))) MOD MAX.USR.FILE.SIZE.FRM.DEF) + 1
  79.       DEF FNHSH2(X$) = (ASC(MID$(X$,2,1)) * 10 + 7) MOD MAX.USR.FILE.SIZE.FRM.DEF
  80. * ------[ first line different ]------
  81.       DELAY! = FNTI! + 1
  82. * REPLACING old line(s) by new
  83. 11600 INPUT #1,CONFIG.FILE.VER$, _
  84.                DOWNLOAD.DRIVES$, _
  85.                SYSOP.PASSWORD.1$, _
  86.                SYSOP.PASSWORD.2$, _
  87.                SYSOP.FIRST.NAME$, _
  88.                SYSOP.LAST.NAME$, _
  89.                REQUIRED.RINGS, _
  90.                START.OFFICE.HOURS, _
  91.                END.OFFICE.HOURS, _
  92.                MINUTES.PER.SESSION!, _
  93.                MAX.ALLOWED.MSGS.FRM.DEF, _
  94.                ACT.MNTHS.B4.DELETING, _
  95.                UPLOAD.DIRECTORY$, _
  96. * ------[ first line different ]------
  97.                ZSkipMailCheck, _                    'Pe 11/02/92
  98.                ACTIVE.BULLETINS, _
  99.                PROMPT.BELL, _
  100.                PCJR, _
  101.                MENUS.CAN.PAUSE, _
  102.                MENU$(1), _
  103.                MENU$(2), _
  104.                MENU$(3), _
  105.                MENU$(4), _
  106.                MENU$(5), _
  107.                MENU$(6), _
  108.                CONFERENCE.MENU$, _
  109.                TEST.ANSI.TIME, _
  110.                WELCOME.INTERRUPTABLE, _
  111.                REMIND.FILE.TRANSFERS, _
  112.                PAGE.LENGTH, _
  113.                MAX.MESSAGE.LINES, _
  114.                DOORS.AVAILABLE, _
  115.                MO$
  116.       IF CONFIG.FILE.VER$ > LEFT$(VERSION.NUMBER$,5) OR _
  117.          CONFIG.FILE.VER$ < "17.1A" THEN _
  118.          PRINT "Config DEF file, " + CONFIG.FILENAME$ + " not " + CONFIG.VERSION$ : _
  119.          END
  120.       GOSUB 22340
  121. * REPLACING old line(s) by new
  122. 12626 ON ILOOKUP GOSUB 18000, _  '  41 Field used to locate a users record
  123.                        18100, _  '  42 Field to distinguish users with same id
  124.                        17800, _  '  43 Where personal id begins in user rec
  125.                        17810, _  '  44 Length of personal id in user rec
  126.                        17830, _  '  45 First Name prompt
  127.                        17840, _  '  46 Last Name prompt
  128.                        17850, _  '  47 Enforce upload/download ratios
  129.                        17630, _  '  48 Restrict users by date
  130.                        18510, _  '  49 Security level when subscription expires
  131.                        18530, _  '  50 Days before expiration to warn user
  132.                        18520, _  '  51 Days a newuser gets when registers
  133.                        17610, _  '  52 Turn printer off on recycle
  134. * ------[ first line different ]------
  135.                        17620, _  '  53 Do Not write Uploadlg.def file? 'Pe 03/31/92
  136.                        21760, _  '  54 Buffer size for text files
  137.                        16032, _  '  55 Size of stack space to use
  138.                        22550, _  '  56 Notify users when SYSOP wants system?
  139.                        17845, _  '  57 Ask users their (city/state)
  140.                        12325, _  '  58
  141.                        21770, _  '  59 Internal Protocols stripped in Maple 'Pe 06/26/92
  142.                        21900     '  60 Voice synthesizer support
  143.       GOTO 12325
  144. * REPLACING old line(s) by new
  145. 12646 ON ILOOKUP GOSUB 17560, _  ' 281 Prompt new users for their preferences
  146. * ------[ first line different ]------
  147.                        17565, _  ' 282 Skip Mail check on log on
  148.                        22550, _  ' 283 New users default file-transfer mode
  149.                        22550, _  ' 284 Line feeds for new users default to
  150.                        22550, _  ' 285 Nulls for new users default to
  151.                        22550, _  ' 286 Prompt bell for new users defaults to
  152.                        22550, _  ' 287 New users 'graphics' ability is
  153.                        22550, _  ' 288 New users upper/lower case
  154.                        22550, _  ' 289 New users margins defaults are
  155.                        17570, _  ' 290 Remember new users
  156.                        17580, _  ' 291 Survive no user room
  157.                        17295, _  ' 292 Max # of mins can bank
  158.                        12325, _  ' 293
  159.                        12325, _  ' 294
  160.                        12325, _  ' 295
  161.                        12325, _  ' 296
  162.                        12325, _  ' 297
  163.                        12325, _  ' 298
  164.                        12325, _  ' 299
  165.                        12325     ' 300
  166.       GOTO 12325
  167. * REPLACING old line(s) by new
  168. * ------[ first line different ]------
  169. 12647 ON ILOOKUP GOSUB 20000, _  ' 301 Drive for Chat
  170.                        20010, _  ' 302 Drive/path for directory
  171.                        20020, _  ' 303 Extension for directory lists
  172.                        20030, _  ' 304 Drive/path for work disk
  173.                        20040, _  ' 305 # of disks in Library
  174.                        20050, _  ' 306 # of Master directories
  175.                        20060, _  ' 307 # of subdirectories in each master
  176.                        20070, _  ' 308 Prefix of subdirectory on Library
  177.                        20080, _  ' 309 Name of subsystem command menu
  178.                        20090, _  ' 310 Symbols to use for menu commands
  179.                        20090, _  ' 311 Security levels for menu functions
  180.                        20100, _  ' 312 Drive/path of ARCHIVE utility
  181.                        20110, _  ' 313 Name of ARCHIVE utility
  182.                        12325, _  ' 314
  183.                        12325, _  ' 315
  184.                        12325, _  ' 316
  185.                        12325, _  ' 317
  186.                        12325, _  ' 318
  187.                        12325, _  ' 319
  188.                        12325     ' 320
  189.       GOTO 12325
  190. * REPLACING old line(s) by new
  191. 16730 CALL MMINTEGER ("Default user page length?(a value between 0 and 255)",0,255,PAGE.LENGTH)
  192.       RETURN
  193. * ------[ first line different ]------
  194. '16790 CALL MMINTEGER ("Maximum number of lines allowed per message (1-99)",1,99,MAX.MESSAGE.LINES)
  195. '      RETURN
  196. * REPLACING old line(s) by new
  197. * ------[ first line different ]------
  198. 16790 CALL MMINTEGER ("Maximum number of lines allowed per message (1-199)",1,199,MAX.MESSAGE.LINES)
  199.       RETURN
  200. * INSERTING new line(s)
  201. 17565 CALL GETNUMYN ("Skip Mail check on log on ",ZSkipMailCheck)   'Pe 11/02/92
  202.       RETURN                                                        'Pe 11/02/92
  203. * REPLACING old line(s) by new
  204. * ------[ first line different ]------
  205. 17620 CALL GETNUMYN ("OMIT Users/File Name from UPLOADLG.DEF File ",MUSIC)  'Pe 03/31/92
  206.       RETURN
  207. * REPLACING old line(s) by new
  208. * ------[ first line different ]------
  209. 17650 CALL GETNUMYN ("AUTODOWNLOAD removed in Maple version (answer NO)",ASK.IDENTITY) 'Pe 06/27/92
  210.       RETURN
  211. * REPLACING old line(s) by new
  212. 18800 CALL GETNUMYN ("Set the Parameters new in " + CONFIG.VERSION$,AB)
  213.       IF NOT AB THEN _
  214.          RETURN
  215.       HJ$ = CHR$(13)
  216. '
  217. ' * SET THE PARAMETERS NEW TO THIS RELEASE OF RBBS-PC
  218. ' *  20 = Seconds to wait for ansi detect
  219. * ------[ first line different ]------
  220. ' *  96 = Seconds to display copyright notice
  221. ' *  97 = Prevent callers from quoting a reply
  222. ' * 159 = Min security to do personal uploads
  223. ' * 160 = Let msgs have multiple recipients
  224. ' * 171 = name of distribution list menu
  225. ' * 172 = drive/path where distribution lists stored
  226. ' * 173 = types of msg protection allowed
  227. ' * 292 = max # of minutes can bank
  228. '
  229.       KSTACKED$ = "20" + HJ$ + "96" + HJ$ + _
  230.                   "97" + HJ$ + "159" + HJ$
  231.       KSTACKED$ = KSTACKED$ + _
  232.                   "160" + HJ$ + "171" + HJ$ + _
  233.                   "172" + HJ$ + "173" + HJ$
  234.       KSTACKED$ = KSTACKED$ + _
  235.                   "292" + HJ$
  236.       IPAGE = 1
  237.       RETURN
  238. '
  239. ' * LET THE SYSOP SPECIFY THE NUMBER OF RECORDS IN THE USER FILE
  240. '
  241. * REPLACING old line(s) by new
  242. 20000 LOCATE 18,1
  243. * ------[ first line different ]------
  244.       A$ = "Specify Drive for CHAT work files in the range A->" + M$ + "(or NONE) " 'Pe 03/31/92
  245.       MAX = 4
  246.       GOSUB 13599
  247.       LIBRARY.DRIVE$ = HJ$
  248.       IF LEN(HJ$) > 1 AND HJ$ <> "NONE" THEN _
  249.          GOTO 20000
  250.       IF LIBRARY.DRIVE$ = "NONE" THEN _
  251.          LIBRARY.DRIVE$ = "" _
  252.       ELSE LIBRARY.DRIVE$ = LIBRARY.DRIVE$ + ":"
  253.       RETURN
  254. '
  255. ' * LIBRARY DIRECTORY/PATH
  256. '
  257. * REPLACING old line(s) by new
  258. 23630 SK = 0
  259.       GOSUB 30040              ' <----Print message headers
  260.       FILNUM = 1
  261.       GOSUB 30050
  262.       FIELD 1,128 AS MESSAGE.RECORD$
  263. * ------[ first line different ]------
  264.       IS.HEADER$ = CHR$(225) + CHR$(226)
  265.       FOR I = FIRST.MESSAGE.RECORD TO NEXT.MESSAGE.RECORD - 1
  266.          GET 1,I
  267.          IF INSTR(IS.HEADER$,MID$(MESSAGE.RECORD$,116,1)) = 0 THEN _
  268.             GOTO 23725
  269.          IF VAL(MID$(MESSAGE.RECORD$,117,4)) > 0 AND _
  270.             SK < VAL(MID$(MESSAGE.RECORD$,2,4)) THEN _
  271.             SK = VAL(MID$(MESSAGE.RECORD$,2,4)) : _
  272.             I = LOC(1) + VAL(MID$(MESSAGE.RECORD$,117,4)) - 1 _
  273.          ELSE GOTO 23725
  274.          I$ = "K"
  275.          IF MID$(MESSAGE.RECORD$,116,1) = CHR$(225) THEN _
  276.             I$ = "A"
  277.          IF LOC(1) > NEXT.MESSAGE.RECORD - 1 THEN _
  278.             GOTO 23730
  279.          PRINT LEFT$(MESSAGE.RECORD$,5) + " " + _
  280.                MID$(MESSAGE.RECORD$,76,25) + " " + _
  281.                MID$(MESSAGE.RECORD$,101,15) + " " + _
  282.                I$ + " " + _
  283.                MID$(MESSAGE.RECORD$,117,4) + " " + _
  284.                STR$(LOC(1)) + " "  + _
  285.                STR$(I)
  286.          SK = VAL(MID$(MESSAGE.RECORD$,2,4))
  287.          IF RB AND VAL(MID$(MESSAGE.RECORD$,2,4)) = CALLS.TODATE! THEN _
  288.             GOTO 23730
  289.          IF RB THEN _
  290.             GOSUB 50580
  291. * REPLACING old line(s) by new
  292. 24800 CLS
  293.       I! = FRE(C$)
  294.       COLOR 0,7,0
  295. * ------[ first line different ]------
  296.       LOCATE 1,3
  297.       PRINT " Maple RBBS-PC Default Configuration " + CONFIG.VERSION$";
  298.       IF CONFERENCE.MODE THEN _
  299.          GOSUB 24970
  300.       COLOR FG,BG,BORDER
  301.       PRINT " Page" + STR$(DISPLAYED.PAGE.NUMBER) + " of" + STR$(MAXIMUM.DISPLAYABLE.PAGES)
  302.       RETURN
  303. '
  304. ' * ROUTINE TO DISPLAY CONFERENCE MAINTENANCE MODE IN CONFIG'S DISPLAYS
  305. '
  306. * REPLACING old line(s) by new
  307. 50580 OLD = LOC(1)
  308.       GET 1,I + 1
  309.       IF (MID$(MESSAGE.RECORD$,116,1) = CHR$(225) _
  310.          OR  MID$(MESSAGE.RECORD$,116,1) = CHR$(226)) _
  311.          AND (MID$(MESSAGE.RECORD$,61,1) = ":" _
  312. * ------[ first line different ]------
  313.          AND MID$(MESSAGE.RECORD$,70,1) = "-" _
  314.          AND MID$(MESSAGE.RECORD$,73,1) = "-") THEN _
  315.          RETURN
  316.       PRINT "Message chain broken at record number " + STR$(OLD)
  317.       PRINT "Message chain repair in progress!
  318.       FOR IQ = OLD + 1 TO NEXT.MESSAGE.RECORD - 1
  319.          GET 1,IQ
  320.          IF (MID$(MESSAGE.RECORD$,116,1) = CHR$(225) _
  321.             OR MID$(MESSAGE.RECORD$,116,1) = CHR$(226)) _
  322.             AND (MID$(MESSAGE.RECORD$,61,1)  = ":" _
  323.             AND  MID$(MESSAGE.RECORD$,64,1)  = ":" _
  324.             AND  MID$(MESSAGE.RECORD$,70,1) = "-" _
  325.             AND  MID$(MESSAGE.RECORD$,73,1) = "-") THEN _
  326.             GET 1,OLD : _
  327.             MID$(MESSAGE.RECORD$,117,4) = STR$(IQ - OLD) : _
  328.             PUT 1,OLD : _
  329.             PRINT "Message chain repaired." : _
  330.             I = IQ : _
  331.             RETURN
  332.       NEXT
  333.       RETURN 23730
  334. '
  335. ' * COMMON SUBROUTINE TO HASH A USER'S NAME TO FIND THE CORRECT USER RECORD #
  336. '
  337. * REPLACING old line(s) by new
  338. 59030 WRITE #1,VERSION.NUMBER$, _
  339.                DOWNLOAD.DRIVES$, _
  340.                SYSOP.PASSWORD.1$, _
  341.                SYSOP.PASSWORD.2$, _
  342.                SYSOP.FIRST.NAME$, _
  343.                SYSOP.LAST.NAME$, _
  344.                REQUIRED.RINGS, _
  345.                START.OFFICE.HOURS, _
  346.                END.OFFICE.HOURS, _
  347.                MINUTES.PER.SESSION!, _
  348.                MAX.ALLOWED.MSGS.FRM.DEF, _
  349.                ACT.MNTHS.B4.DELETING, _
  350.                UPLOAD.DIRECTORY$,_
  351. * ------[ first line different ]------
  352.                ZSkipMailCheck, _                 'Pe 11/02/92
  353.                ACTIVE.BULLETINS, _
  354.                PROMPT.BELL, _
  355.                PCJR, _
  356.                MENUS.CAN.PAUSE, _
  357.                MENU$(1), _
  358.                MENU$(2), _
  359.                MENU$(3), _
  360.                MENU$(4), _
  361.                MENU$(5), _
  362.                MENU$(6), _
  363.                CONFERENCE.MENU$, _
  364.                TEST.ANSI.TIME, _
  365.                WELCOME.INTERRUPTABLE, _
  366.                REMIND.FILE.TRANSFERS, _
  367.                PAGE.LENGTH, _
  368.                MAX.MESSAGE.LINES, _
  369.                DOORS.AVAILABLE, _
  370.                MO$
  371.       IF INSTR(BULLETIN.MENU$,":") < 1 THEN _
  372.          BULLETIN.MENU$ = DRIVE.FOR.BULLETINS$ + _
  373.                           BULLETIN.MENU$
  374.       IF INSTR(BULLETIN.PREFIX$,":") < 1 THEN _
  375.          BULLETIN.PREFIX$ = DRIVE.FOR.BULLETINS$ + _
  376.                             BULLETIN.PREFIX$
  377.       IF GLOBAL.FUNCTION(3) > MINIMUM.LOGON.SECURITY THEN _
  378.          GLOBAL.FUNCTION(3) = MINIMUM.LOGON.SECURITY
  379.       IF FILES.FUNCTION(2) > MINIMUM.LOGON.SECURITY THEN _
  380.          FILES.FUNCTION(2) = MINIMUM.LOGON.SECURITY
  381.       IF LIBRARY.FUNCTION(4) > MINIMUM.LOGON.SECURITY THEN _
  382.          LIBRARY.FUNCTION(4) = MINIMUM.LOGON.SECURITY
  383.       IF LIBRARY.DRIVE$ = "" THEN _
  384.          MAIN.FUNCTION(18) = 32767
  385.       WRITE #1,MAIN.MESSAGE.FILE$, _
  386.                MAIN.MESSAGE.BACKUP$, _
  387.                CALLERS.FILE$, _
  388.                COMMENTS.FILE$, _
  389.                MAIN.USER.FILE$, _
  390.                WELCOME.FILE$, _
  391.                NEWUSER.FILE$, _
  392.                DIRECTORY.EXTENTION$, _
  393.                COM.PORT$, _
  394.                BULLETINS.OPTIONAL, _
  395.                USER.INIT.COMMAND$, _
  396.                RTS$, _
  397.                ZCallersLst$, _
  398.                FG, _
  399.                BG, _
  400.                BORDER, _
  401.                RBBS.BAT$, _
  402.                RCTTY.BAT$
  403.       WRITE #1,OMIT.MAIN.DIRECTORY$, _
  404.                FIRST.NAME.PROMPT$, _
  405.                HELP$(3), _
  406.                HELP$(4), _
  407.                HELP$(7), _
  408.                HELP$(9), _
  409.                BULLETIN.MENU$, _
  410.                BULLETIN.PREFIX$, _
  411.                DRIVE.FOR.BULLETINS$, _
  412.                MESSAGE.REMINDER, _
  413.                REQUIRE.NON.ASCII, _
  414.                ASK.EXTENDED.DESC, _
  415.                MAXIMUM.NUMBER.OF.NODES, _
  416.                NETWORK.TYPE, _
  417.                RECYCLE.TO.DOS, _
  418.                MAX.USR.FILE.SIZE.FRM.DEF, _
  419.                MAX.MSG.FILE.SIZE.FRM.DEF!, _
  420.                TRASHCAN.FILE$
  421.       WRITE #1,MINIMUM.LOGON.SECURITY, _
  422.                DEFAULT.SECURITY.LEVEL, _
  423.                SYSOP.SECURITY.LEVEL, _
  424.                FILESEC.FILE$, _
  425.                SYSOP.MENU.SECURITY.LEVEL, _
  426.                CONFMAIL.LIST$, _
  427.                MAXIMUM.VIOLATIONS, _
  428.                SYSOP.FUNCTION(1), _
  429.                SYSOP.FUNCTION(2), _
  430.                SYSOP.FUNCTION(3), _
  431.                SYSOP.FUNCTION(4), _
  432.                SYSOP.FUNCTION(5), _
  433.                SYSOP.FUNCTION(6), _
  434.                SYSOP.FUNCTION(7), _
  435.                PASSWORD.FILE$, _
  436.                MAXIMUM.PASSWORD.CHANGES, _
  437.                MINIMUM.SECURITY.FOR.TEMP.PASSWORD, _
  438.                OVERWRITE.SECURITY.LEVEL, _
  439.                DOORS.TERMINAL.TYPE, _
  440.                MAX.PER.DAY
  441.       WRITE #1,MAIN.FUNCTION(1), _
  442.                MAIN.FUNCTION(2), _
  443.                MAIN.FUNCTION(3), _
  444.                MAIN.FUNCTION(4), _
  445.                MAIN.FUNCTION(5), _
  446.                MAIN.FUNCTION(6), _
  447.                MAIN.FUNCTION(7), _
  448.                MAIN.FUNCTION(8), _
  449.                MAIN.FUNCTION(9), _
  450.                MAIN.FUNCTION(10), _
  451.                MAIN.FUNCTION(11), _
  452.                MAIN.FUNCTION(12), _
  453.                MAIN.FUNCTION(13), _
  454.                MAIN.FUNCTION(14), _
  455.                MAIN.FUNCTION(15), _
  456.                MAIN.FUNCTION(16), _
  457.                MAIN.FUNCTION(17), _
  458.                MAIN.FUNCTION(18), _
  459.                MIN.NEWCALLER.BAUD, _
  460.                WAIT.BEFORE.DISCONNECT
  461.       WRITE #1,FILES.FUNCTION(1), _
  462.                FILES.FUNCTION(2), _
  463.                FILES.FUNCTION(3), _
  464.                FILES.FUNCTION(4), _
  465.                FILES.FUNCTION(5), _
  466.                FILES.FUNCTION(6), _
  467.                FILES.FUNCTION(7), _
  468.                FILES.FUNCTION(8), _
  469.                UTILITY.FUNCTION(1), _
  470.                UTILITY.FUNCTION(2), _
  471.                UTILITY.FUNCTION(3), _
  472.                UTILITY.FUNCTION(4), _
  473.                UTILITY.FUNCTION(5), _
  474.                UTILITY.FUNCTION(6), _
  475.                UTILITY.FUNCTION(7), _
  476.                UTILITY.FUNCTION(8), _
  477.                UTILITY.FUNCTION(9), _
  478.                UTILITY.FUNCTION(10), _
  479.                UTILITY.FUNCTION(11), _
  480.                UTILITY.FUNCTION(12), _
  481.                GLOBAL.FUNCTION(1), _
  482.                GLOBAL.FUNCTION(2), _
  483.                GLOBAL.FUNCTION(3), _
  484.                GLOBAL.FUNCTION(4), _
  485.                UPLOAD.TIME.FACTOR!, _
  486.                COMPUTER.TYPE, _
  487.                REMIND.PROFILE, _
  488.                RBBS.NAME$, _
  489.                COMMANDS.BETWEEN.RINGS, _
  490.                ZCopyrightSecs, _
  491.                PAGING.PRINTER.SUPPORT$, _
  492.                MODEM.INIT.BAUD$
  493.